<%	
	Class a68e5d75_943c_4c06_9967_458f11233c54 
		
		public sub print(byref value)
			Response.Write(value)
		end sub
		
		public sub println(byref value)
			Response.Write(value&"<br/>")
		end sub		
		
		public sub query(byref paraName)
			query=Request.QueryString(paraName)
		end sub				
		
		public sub form(byref paraName)
			form=Request.From(paraName)
		end sub	
		
		public sub httpParameter(byref paraName)
			httpParameter=Request(paraName)
		end sub	
		
		public sub alert(byref string)
			Response.Write(string)
			Response.End()
		end sub				
		
		public sub jsAlert(byref string)
			Response.Write("<script type=""text/javascript"">alert(""' + string + '"");</script>")
		end sub	
			
		public sub jsLocation(byref url,target)
			if target="_self" then
				Response.Write("<script type='text/javascript'>window.location='"&url&"';</script>")
			elseif target="_parent" then
				Response.Write("<script type='text/javascript'>parent.window.location='"&url&"';</script>")
			elseif target="_top" then
				Response.Write("<script type='text/javascript'>window.top.location='"&url&"';</script>")
			else
				Response.Write("<script type='text/javascript'>window.location='"&url&"';</script>")
			end if
		end sub			
	
		public sub jsHistory(byref step)
			Response.Write("<script type='text/javascript'>window.history.go("&step&");</script>")
		end sub
		
		public sub DisplayPaginationText(byref rs,byref para)
			Response.Write("<script type='text/javascript'>window.history.go("&step&");</script>")
		end sub            
		
	End Class
	
	Dim cedar	
	Set cedar=New a68e5d75_943c_4c06_9967_458f11233c54	
%>

<%
	cedar.alert(2)
	cedar.println(23)
%>